﻿Public Class Agendas

    Public ReadOnly Property jourRDV() As Date
        Get
            Return Me.DateRdv.Date
        End Get
    End Property

    Public ReadOnly Property heureRDV() As String
        Get
            Return Format(Me.DateRdv, "HH:mm")
        End Get
    End Property

    Public ReadOnly Property Client() As String
        Get
            Me.AnimauxReference.Load()
            Me.Animaux.ClientsReference.Load()
            Return Me.Animaux.Clients.NomClient & " " & Me.Animaux.Clients.PrenomClient
        End Get
    End Property

    Public ReadOnly Property Animal() As String
        Get
            Me.AnimauxReference.Load()
            Return Me.Animaux.NomAnimal
        End Get
    End Property

    Public ReadOnly Property Race() As String
        Get
            Me.AnimauxReference.Load()
            Return Me.Animaux.Race
        End Get
    End Property

End Class
